home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir37
/
mxmenu.zip
/
QUICK.MNU
< prev
next >
Wrap
Text File
|
1993-01-26
|
3KB
|
141 lines
Comment
==========================================================
Copyright 1990-93 by Marc Perkel * All right reserved.
This menu is a sample of a Novell ready menu. You can easilly modify it
to suit your needs.
To add a choice to a menu simply use the AddChoice command
then add the appropiate Onkey statement.
The menu will make the size adjustments accordinaly.
Example:
AddChoice("Print Console",10)
...
...
OnKey Task(10)
PConsole
...
If you want to change the menu's center, pass the XY
coordinates to menu's CenterStretchBox procedure.
Example:
CenterStretchBox("Menu Header",40,12)
This will cause the menu to center at Col 40, Row 12
Instead of defining the center of the box, there is a command
CornerStretchBox where the box grows down and right.
Example:
CornerStretchBox("Menu Header",8,6)
To control custom features, edit CUSTOM.INC and other INCLUDE Files.
=========================================================
EndComment
;------ Create Variables
var
NovVar
KeepUsersInMenu
KeepUsersInMenu = False ;set to True if you want to lock in users
;------ Personalize Your Screen Messages
StatusLineText = 'Your Company Name Here'
MenuTitle = 'Computer Tyme Master Menu'
Comment
==========================================================
If you want to branch to a personal menu then this routine test for the
existence of a menu in the users H: directory with the same name as the
users login name. It then sets an environment variable indicating if it
was found. This keeps the menu fast because the test need only be made
once.
==========================================================
EndComment
;------ Load menu look and feel include files
Include 'CUSTOM.INC'
Comment
=================================
In order to add menu choices conditionally you would append the
choices to the end of the array after all the default choices
are set. For Example:
if InGroup("ACCOUNTING")
AddChoice("Payroll Menu",10)
endif
Here is where menus are created.
=================================
EndComment
;=============[ Main Menu ]============*
AddChoice('Accounting',1)
AddChoice('Word Processing',2)
AddChoice('SpreadSheet',3)
AddChoice('DataBase',4)
AddChoice('Communication',5)
AddChoice('Utilities',20)
if PersonalMenu > '' then AddChoice('Personal Menu',25)
CornerStretchBox ('Main Menu',11,6)
OnKey Task(1)
|Error('Put Code for Accounting here.')
; cd\account
; acc
OnKey Task(2)
|Error('Put Code for Word Processing here.')
; cd\wordperf
; wp
OnKey Task(3)
|Error('Put Code for SpreadSheet here.')
; cd\lotus
; 123
OnKey Task(4)
|Error('Put Code for DataBase here.')
OnKey Task(5)
|Error('Put Code for Communication here.')
OnKey Task(20) ;Utilities
^Util
OnKey Task(25)
|Bat 'Marx ' + PersonalMenu
OnKey ESC
|if not KeepUsersInMenu
| LeaveMenu
|endif
;=============[ Utilities ]============*
Include "UTILS.INC"